home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / FILEDEMOS.txt < prev    next >
Text File  |  1996-12-24  |  2KB  |  89 lines
  1.  
  2. PROGRAM KYANDISK;
  3.  
  4. CONST
  5. MAX      = 100;
  6. DATANAME = '/RAM/DATAFILE';
  7. TEXTNAME = '/RAM/TEXTFILE';
  8.  
  9. VAR
  10. I:        INTEGER;
  11. ZAHLEN:   ARRAY [0..MAX] OF INTEGER;
  12. DATAFILE: FILE OF INTEGER;
  13. TEXTFILE: FILE OF TEXT;
  14. {----------------------------------------------------------}
  15. PROCEDURE INITARRAY;
  16. BEGIN FOR I := 0 TO MAX DO ZAHLEN [I] := I; END;
  17.  
  18. PROCEDURE CLEARARRAY;
  19. BEGIN FOR I := 0 TO MAX DO ZAHLEN [I] := 0; END;
  20.  
  21. PROCEDURE SHOWARRAY;
  22. BEGIN FOR I := 0 TO MAX DO WRITE (ZAHLEN [I]:5);
  23. WRITELN; END;
  24. {-----------------------------------------------------------}
  25. BEGIN
  26. WRITELN ('Neuen Datafile speichern: Rewrite, Put');
  27. INITARRAY;
  28. REWRITE (DATAFILE, DATANAME);
  29. FOR I := 0 TO MAX DO
  30.  BEGIN
  31.  DATAFILE^ := ZAHLEN [I]; PUT (DATAFILE)
  32.  END;
  33. SHOWARRAY;
  34.  
  35. WRITELN ('Alten Datafile einlesen: Reset, Seek 0, Get');
  36. CLEARARRAY;
  37. RESET (DATAFILE, DATANAME); SEEK (DATAFILE, 0);
  38. FOR I := 0 TO MAX DO
  39.  BEGIN
  40.  GET (DATAFILE); ZAHLEN [I] := DATAFILE^;
  41.  END;
  42. SHOWARRAY;
  43. {------------------------------------------------------------}
  44. WRITELN ('Alten Datafile ueberschreiben: Reset, Seek 0, Put');
  45. INITARRAY;
  46. RESET (DATAFILE, DATANAME); SEEK (DATAFILE, 0);
  47. FOR I := 0 TO MAX DO
  48.  BEGIN
  49.  DATAFILE^ := ZAHLEN [I]; PUT (DATAFILE);
  50.  END;
  51. SHOWARRAY;
  52.  
  53. WRITELN ('Alten Datafile at random einlesen: Reset, Seek, Get');
  54. INITARRAY;
  55. RESET (DATAFILE, DATANAME);
  56. FOR I := MAX DOWNTO 0 DO {rueckwaerts}
  57.  BEGIN
  58.  SEEK (DATAFILE, I); GET (DATAFILE); ZAHLEN [I] := DATAFILE^;
  59.  END;
  60. SHOWARRAY;
  61. {--------------------------------------------------------------}
  62. WRITELN ('Neuen Textfile speichern: Rewrite, Writeln');
  63. INITARRAY;
  64. REWRITE (TEXTFILE, TEXTNAME);
  65. FOR I := 0 TO MAX DO WRITELN (TEXTFILE, ZAHLEN [I]);
  66. SHOWARRAY;
  67.  
  68. WRITELN ('Alten Textfile einlesen: Reset, Readln');
  69. CLEARARRAY;
  70. RESET (TEXTFILE, TEXTNAME);
  71. FOR I := 0 TO MAX DO READLN (TEXTFILE, ZAHLEN [I]);
  72. SHOWARRAY;
  73. {--------------------------------------------------------------}
  74. WRITELN ('Datafile unbekannter Laenge mit EOF einlesen');
  75. RESET (DATAFILE, DATANAME);
  76. WHILE NOT EOF (DATAFILE) DO
  77.  {Erst Write, dann Get!}
  78.  BEGIN WRITE (DATAFILE^:5); GET (DATAFILE); END;
  79. WRITELN;
  80.  
  81. WRITELN ('Textfile unbekannter Laenge mit EOF einlesen');
  82. RESET (TEXTFILE, TEXTNAME);
  83. WHILE NOT EOF (TEXTFILE) DO
  84.  {Erst Readln, dann Write!}
  85.  BEGIN READLN (TEXTFILE, I); WRITE (I:5); END;
  86. WRITELN;
  87. {---------------------------------------------------------------}
  88. END.
  89.